home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / btrieve / btp15 / version.pas < prev    next >
Pascal/Delphi Source File  |  1996-07-10  |  417b  |  19 lines
  1. PROGRAM Version;             { (c) 1991 John C. Leon   last updated 10/25/91 }
  2.  
  3. {A demonstration of the base object, TRecMgr, in BTP.TPU, version 1.5}
  4.  
  5. {$IFDEF production} {$D-,R-,L-,S-} {$ENDIF}
  6.  
  7. USES
  8.    BTP;
  9.  
  10. VAR
  11.    MyObj : PRecMgr;
  12.  
  13. BEGIN
  14.    MyObj := new(PRecMgr, Init);
  15.    writeln;
  16.    writeln('This computer is running Btrieve Version ', MyObj^.VersionString,'.');
  17.    dispose(MyObj, Done);
  18. END.
  19.